open Common

let read_file name =
	do_finally_p2
		Std.input_all
		close_in
		(open_in name)
